#MEMBUKA FILE DATA
dataDirectory <- "D:/SVM/Golongan O/"
data <- read.csv(paste(dataDirectory,'Golongan O Train.txt', sep=""),header = TRUE)
plot(data, pch=16)
#Install Package
install.packages("e1071")
#Load Library
library(e1071)
#Create svm model
model <- svm( y ~ x , data)
#Make a prediction for each x
predictedY <- predict(model, data)
points(data$x, predictedY, col = "red",pch=4)
#perform a grid search
tuneResult <- tune(svm, y ~ x, data = data,kernel="radial",ranges = list(epsilon = seq(0,1,0.1), cost = 2^(-5:10), gamma = 2^(-6:3)))
print(tuneResult)
summary(tuneResult)
getOption("max.print")
options(max.print = 99999999)
out <- capture.output(summary(tuneResult))
cat("My title", out, file="summary_of_tune_Result_Data_Training_Gol_O.txt", sep="n", append=TRUE)
tunedModel <- tuneResult$best.model
tunedModelY <- predict(tunedModel, data)
points(data$x,tunedModelY,col = "green",pch=4)
print(tunedModelY)
dataDirectory <- "D:/SVM/Golongan O/"
data <- read.csv(paste(dataDirectory,'Golongan O Test.txt', sep=""),header = TRUE)
plot(data, pch=16)
model <- svm(y ~ x, data = data , kernel="radial" , epsilon = 0.2 , cost = 16 , gamma = 0.25)
predictedY <- predict(model, data)
points(data$x, predictedY, col = "red",pch=4)
print(model)
tunedModeltest <- tuneResult$best.model
tunedModeltesting <- predict(tunedModeltest, data)
points(data$x,tunedModeltesting,col = "green",pch=4)
print(tunedModeltesting)
#Load Library
library(e1071)
x <- c(1:12)
y <- c(19.3, 19.7, 20, 19.9, 19, 19.9, 20.6, 22, 21.9, 19.5, 20.2, 19.7)
DF <- data.frame(x = x, y = y)
nextvalues <- c(13:18)
model <- svm(y ~ x, kernel = "radial", epsilon= 0.2, gamma = 0.25, cost = 16)
predict (model , newdata = data.frame(x =nextvalues))
